home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / MacStepbyStep.dxr / Internal_85_pizza4 decrease quantity.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  165 b   |  10 lines
  1. on mouseDown
  2.   global gQuantity4
  3.   if gQuantity4 > 0 then
  4.     gQuantity4 = gQuantity4 - 1
  5.     member(81).text = string(gQuantity4)
  6.   else
  7.     nothing()
  8.   end if
  9. end
  10.